home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / ITBIT.f < prev    next >
Text File  |  1992-07-31  |  595b  |  23 lines
  1.       FUNCTION ITBIT(N,I)   
  2. *-----------------------------------------------------------------------
  3. *   
  4. *   Tests bit I ( 0 < I < 26)  in word N , rightmost = 1 .  
  5. *   
  6. *-----------------------------------------------------------------------
  7.       DIMENSION NP(26)  
  8.       SAVE IFIRST
  9.       DATA IFIRST/0/
  10.       IF(IFIRST.EQ.0)  THEN 
  11.          IFIRST=1   
  12.          NP(1)=1
  13.          DO 10 J=2,26   
  14.             NP(J)=2*NP(J-1) 
  15.    10    CONTINUE   
  16.       ENDIF 
  17.       IF(I.GT.0.AND.I.LE.25)  THEN  
  18.          ITBIT=MOD(N,NP(I+1))/NP(I) 
  19.       ELSE  
  20.          ITBIT=0
  21.       ENDIF 
  22.       END   
  23.